;;;Entmakes the blocks DIMARO and LDRARO if they do not exist.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	8-18-99
;;;	Edited:		8-18-99
;;;
(defun c:aros ()
  (if (not (tblsearch "BLOCK" "DIMARO"))
        (progn
          (entmake '((0 . "BLOCK")(2 . "DIMARO")(70 . 64)(10 0.0 0.0 0.0)))
          (entmake '((0 . "LINE") (8 . "0") (62 . 0) (10 0.0 0.0 0.0) (11 -0.947368 0.157895 0.0) (210 0.0 0.0 1.0)))
          (entmake '((0 . "LINE") (8 . "0") (62 . 0) (10 -0.947368 0.118421 0.0) (11 -0.236842 0.0 0.0) (210 0.0 0.0 1.0)))
          (entmake '((0 . "LINE") (8 . "0") (62 . 0) (10 -0.473684 0.0 0.0) (11 -0.947368 0.0789474 0.0) (210 0.0 0.0 1.0)))
          (entmake '((0 . "LINE") (8 . "0") (62 . 0) (10 -0.947368 0.0394737 0.0) (11 -0.710526 0.0 0.0) (210 0.0 0.0 1.0)))
          (entmake '((0 . "LINE") (8 . "0") (62 . 0) (10 -0.710526 0.0 0.0) (11 -0.947368 -0.0394737 0.0) (210 0.0 0.0 1.0)))
          (entmake '((0 . "LINE") (8 . "0") (62 . 0) (10 -0.947368 -0.0789474 0.0) (11 -0.473684 0.0 0.0) (210 0.0 0.0 1.0)))
          (entmake '((0 . "LINE") (8 . "0") (62 . 0) (10 -0.236842 0.0 0.0) (11 -0.947368 -0.118421 0.0) (210 0.0 0.0 1.0)))
          (entmake '((0 . "LINE") (8 . "0") (62 . 0) (10 -0.947368 -0.157895 0.0) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0)))
          (entmake '((0 . "LINE") (8 . "0") (62 . 0) (10 -0.947368 -0.118421 0.0) (11 -0.947368 -0.0789474 0.0) (210 0.0 0.0 1.0)))
          (entmake '((0 . "LINE") (8 . "0") (62 . 0) (10 -0.947368 -0.0394737 0.0) (11 -0.947368 0.0 0.0) (210 0.0 0.0 1.0)))
          (entmake '((0 . "LINE") (8 . "0") (62 . 0) (10 -0.947368 0.0789474 0.0) (11 -0.947368 0.0394737 0.0) (210 0.0 0.0 1.0)))
          (entmake '((0 . "LINE") (8 . "0") (62 . 0) (10 -0.947368 0.118421 0.0) (11 -0.947368 0.157895 0.0) (210 0.0 0.0 1.0)))
          (entmake '((0 . "LINE") (8 . "0") (62 . 0) (10 -1.0 0.0 0.0) (11 -0.947368 0.0 0.0) (210 0.0 0.0 1.0)))
          (entmake '((0 . "ENDBLK")))
        )
  )
  (if (not (tblsearch "BLOCK" "LDRARO"))
        (progn
          (entmake '((0 . "BLOCK")(2 . "LDRARO")(70 . 64)(10 0.0 0.0 0.0)))
          (entmake '((0 . "LINE") (8 . "0") (6 . "CONTINUOUS") (62 . 0) (10 0.0 0.0 0.0) (11 0.118421 -0.0197369 0.0) (210 0.0 0.0 1.0)) )
          (entmake '((0 . "LINE") (8 . "0") (6 . "CONTINUOUS") (62 . 0) (10 0.118421 -0.0148026 0.0) (11 0.0296052 0.0 0.0) (210 0.0 0.0 1.0)) )
          (entmake '((0 . "LINE") (8 . "0") (6 . "CONTINUOUS") (62 . 0) (10 0.0592105 0.0 0.0) (11 0.118421 -0.00986842 0.0) (210 0.0 0.0 1.0)) )
          (entmake '((0 . "LINE") (8 . "0") (6 . "CONTINUOUS") (62 . 0) (10 0.118421 -0.00493421 0.0) (11 0.0888157 0.0 0.0) (210 0.0 0.0 1.0)) )
          (entmake '((0 . "LINE") (8 . "0") (6 . "CONTINUOUS") (62 . 0) (10 0.0888157 0.0 0.0) (11 0.118421 0.00493421 0.0) (210 0.0 0.0 1.0)) )
          (entmake '((0 . "LINE") (8 . "0") (6 . "CONTINUOUS") (62 . 0) (10 0.118421 0.00986842 0.0) (11 0.0592105 0.0 0.0) (210 0.0 0.0 1.0)) )
          (entmake '((0 . "LINE") (8 . "0") (6 . "CONTINUOUS") (62 . 0) (10 0.0296052 0.0 0.0) (11 0.118421 0.0148026 0.0) (210 0.0 0.0 1.0)) )
          (entmake '((0 . "LINE") (8 . "0") (6 . "CONTINUOUS") (62 . 0) (10 0.118421 0.0197369 0.0) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0)) )
          (entmake '((0 . "LINE") (8 . "0") (6 . "CONTINUOUS") (62 . 0) (10 0.118421 0.0148026 0.0) (11 0.118421 0.00986842 0.0) (210 0.0 0.0 1.0)) )
          (entmake '((0 . "LINE") (8 . "0") (6 . "CONTINUOUS") (62 . 0) (10 0.118421 0.00493421 0.0) (11 0.118421 0.0 0.0) (210 0.0 0.0 1.0)) )
          (entmake '((0 . "LINE") (8 . "0") (6 . "CONTINUOUS") (62 . 0) (10 0.118421 -0.00986842 0.0) (11 0.118421 -0.00493421 0.0) (210 0.0 0.0 1.0)) )
          (entmake '((0 . "LINE") (8 . "0") (6 . "CONTINUOUS") (62 . 0) (10 0.118421 -0.0148026 0.0) (11 0.118421 -0.0197369 0.0) (210 0.0 0.0 1.0)) )
          (entmake '((0 . "LINE") (8 . "0") (6 . "CONTINUOUS") (62 . 0) (10 0.125 0.0 0.0) (11 0.118421 0.0 0.0) (210 0.0 0.0 1.0)) )
          (entmake '((0 . "ENDBLK")))
        )
  )
)
